home *** CD-ROM | disk | FTP | other *** search
/ Megarom / Megarom Macintosh CD Software (Quantum Leap)(1992).iso / UTILITIES / Asynchronous Networking / MLACS.p < prev    next >
Text File  |  1990-12-21  |  1KB  |  42 lines
  1. { MLACS.p }
  2. { Copyright © 1988 - 1990 by Apple Computer, Inc. All rights reserved. }
  3.  
  4. program LACS;
  5.  
  6.   {$MC68020-}                                                { The main program must be universal code. }
  7.   {$MC68881-}
  8.  
  9. uses
  10.     { • Required for this unit's interface }
  11.  
  12.     { • MacApp }
  13.     UMacApp,
  14.  
  15.     { • Building Blocks }
  16.     UPrinting, UGridView, UTEView, UDialog,
  17.  
  18.     { • Implementation use }
  19.     ToolUtils, Fonts, Resources, Packages, Notification, AppleTalk, ADSP, ULACS;
  20.  
  21. var
  22.  
  23. gLACSApplication:    TLACSApplication;                { The application object. }
  24.  
  25.     begin
  26.         InitToolBox;                                                                    { Essential toolbox and utilities initialization. }
  27.         if ValidateConfiguration(gConfiguration) then                    { Make sure we can run. }
  28.             begin
  29.                 { Continue with remainder of initialization }
  30.                 InitUMacApp(12);                                                    { Initialize MacApp; 12 calls to MoreMasters. }
  31.                 InitUTEView;                                                            { Initialize TEView unit. }
  32.                 InitUDialog;                                                            { Initialize other units. }
  33.                 InitUGridView;
  34.         
  35.                 New(gLACSApplication);                                        { Allocate a new application object. }
  36.                 FailNil(gLACSApplication);
  37.                 gLACSApplication.ILACSApplication('rums');            { Initialize that new object. }
  38.                 gLACSApplication.Run;                                            { Run the application. }
  39.             end
  40.         else StdAlert(phUnsupportedConfiguration);
  41.     end.
  42.